home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / VIEWS03 / SCRIPTS / LEGEND.AVE < prev    next >
Text File  |  1999-02-21  |  444b  |  20 lines
  1. ' legend.ave 
  2. ' Displays layout of Geologic Legend
  3. ' D.W. Steinshouer - GeoLukas for U.S.G.S. 
  4. ' World Energy Program  -  Thomas Ahlbrandt Chief
  5.  
  6.  
  7. region3 = av.GetProject
  8. theLayout = region3.FindDoc("Region 3 Geologic Legend")
  9. theLayoutWindow = theLayout.GetWin
  10. if (theLayoutWindow.IsOpen) then
  11.  theLayoutWindow.Activate
  12.  theLayoutWindow.Resize(500,300)
  13.   else
  14.  theLayoutWindow.Open
  15.  theLayoutWindow.Resize(500,300)
  16.   end
  17.  
  18.  
  19.  
  20.